﻿Namespace Web
    Public Class LLibreCaixaDespesaIngres
        Public Property strImport As String
            Get
                Return Format(Import, "0.00").Replace(".", ",")
            End Get
            Set(value As String)
                value = value.Replace(".", ",")
                Try
                    Import = Double.Parse(value)
                    RaisePropertyChanged("strImport")
                Catch ex As Exception
                    Throw New FormatException()
                End Try
            End Set
        End Property

        Private Sub OnImportChanged()
            RaisePropertyChanged("strImport")
            If Me.LLibreCaixa IsNot Nothing Then Me.LLibreCaixa.ActualitzarCampsCalculats()
        End Sub
    End Class
End Namespace
